home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / sviewiv / install_sviewiv < prev    next >
Text File  |  1999-11-30  |  9KB  |  232 lines
  1. ; $VER: Install_SViewIV.script V9.03 (6.11.99)
  2. ; © 1993-99 by Andreas R. Kleinert. All rights reserved.
  3. ;
  4. ; German and English strings by the author.
  5. ; Italian strings by Alessandro Basso <cralex@amiga.dei.unipd.it>
  6. ; Norwegian strings by Roger Hågensen <msi@sn.no>
  7. ; French strings by Julien Wilk <wilkj@esiee.fr>
  8. ; Spanish strings by Dámaso D. Estévez <amidde@arrakis.es>
  9.  
  10.  
  11. (set @app-name "SViewIV")
  12. (welcome "SViewIV Installation") (set s2 "irit")
  13.  
  14.  
  15. ; *** english is default language
  16.  
  17.     (set #Msg_wrong_OS       (cat "You need at least AmigaOS V2.04 to run SViewIV !\n\n"
  18.                                   "SViewIV will not run with your system configuration !"))
  19.     (set #Msg_InstallingSViewIV   "Installing SViewIV now. Libraries have to be installed separately !")
  20.     (set #Msg_SelectPath          "Select path to install SViewIV to\n(Work:SViewIV/)")
  21.     (set #Msg_InstallingCatalogs  "Installing Catalog-Files for OS V2.1+\nCode localization.")
  22.     (set #Msg_SelectCatalogPath   "Select path to install Catalogs to")
  23.     (set #Msg_SViewIVPath         "Now modifying your S:User-Startup for a search path...")
  24.     (set #Msg_CopyPalette         "Copy SuperViewPalette to SYS:WBStartup ?\n(Not with MagicWB, etc.)")
  25.     (set #Msg_RunLibInstaller     "Now install Library ?")
  26.     (set #Msg_DoInstallSViewIV    "SViewIV has been installed.")
  27.     (set #Msg_Failed              "\nInstaller failed - please mail the author.")
  28.  
  29.  
  30. (if (= @language "deutsch")
  31.   (
  32.     (set #Msg_wrong_OS       (cat "Sie benötigen mindestens AmigaOS V2.04 für SViewIV !\n\n"
  33.                                   "SViewIV wird auf Ihrem System nicht laufen !"))
  34.     (set #Msg_InstallingSViewIV   "Installiere jetzt SViewIV. Die Libraries müssen separat installiert werden !")
  35.     (set #Msg_SelectPath          "Wählen Sie das Zielverzeichnis für SViewIV\n(Work:SViewIV/)")
  36.     (set #Msg_InstallingCatalogs  "Installiere jetzt die Katalog-Dateien für die\nOS V2.1+ Sprach-Unterstützung.")
  37.     (set #Msg_SelectCatalogPath   "Wählen Sie den Pfad für die Katalog-Dateien")
  38.     (set #Msg_SViewIVPath         "Modifiziere jetzt S:User-Startup für einen Suchpfad...")
  39.     (set #Msg_CopyPalette         "SuperViewPalette nach SYS:WBStartup kopieren ?\n(Nicht mit MagicWB, etc.)")
  40.     (set #Msg_RunLibInstaller     "Jetzt Library installieren ?")
  41.     (set #Msg_DoInstallSViewIV    "SViewIV wurde installiert.")
  42.     (set #Msg_Failed              "\nInstaller fehlgeschlagen - bitte Autor benachrichtigen.")
  43.   )
  44. )
  45.  
  46. (if (= @language "italiano")
  47.   (
  48.     (set #Msg_wrong_OS       (cat "Ti serve almeno AmigaOS V2.04 per usare SViewIV !\n\n"
  49.                                   "SViewIV non funzionerà con la tua configurazione di sistema !"))
  50.     (set #Msg_InstallingSViewIV "Ora installo SViewIV. Le Librerie dovranno essere installate separatamente !")
  51.     (set #Msg_SelectPath          "Seleziona il percorso dove installare SViewIV\n(Work:SViewIV/)")
  52.     (set #Msg_InstallingCatalogs  "Installo File-Catalogo per OS V2.1+\nLocalizzazione del Codice.")
  53.     (set #Msg_SelectCatalogPath   "Seleziona percorso in cui installare i Cataloghi")
  54.     (set #Msg_SViewIVPath       "Ora modifico la tua S:User-Startup per il percorso di ricerca...")
  55.     (set #Msg_CopyPalette         "Copio SuperViewPalette in SYS:WBStartUp ?\n(Non con MagicWB, ecc.)")
  56.     (set #Msg_RunLibInstaller     "Installo ora le Librerie ?")
  57.     (set #Msg_DoInstallSViewIV  "SViewIV è stato installato.")
  58.   )
  59. )
  60.  
  61. (if (= @language "norsk")
  62.   (
  63.     (set #Msg_wrong_OS       (cat "Du trenger minst AmigaOS V2.04 for å bruke SViewIV !\n\n"
  64.                                   "SViewIV vil ikke kjører på ditt system oppsett !"))
  65.     (set #Msg_InstallingSViewIV "Installerer SViewIV nå. Bibliotek må installeres separat !")
  66.     (set #Msg_SelectPath          "Velg destinasjon hvor SViewIV skal inastalleres\n(Work:SViewIV/)")
  67.     (set #Msg_InstallingCatalogs  "Installerer Katalog-Filer for OS V2.1+\nKode lokalisering.")
  68.     (set #Msg_SelectCatalogPath   "Velg destinatsjon hvor Kataloger skal installeres")
  69.     (set #Msg_SViewIVPath       "Modifiserer nå din S:User-Startup for en søke sti...")
  70.     (set #Msg_CopyPalette         "Kopier SuperViewPalette til SYS:WBStartup ?\n(Ikke med MagicWB, osv.)")
  71.     (set #Msg_RunLibInstaller     "Installer Bibliotek ?")
  72.     (set #Msg_DoInstallSViewIV  "SViewIV er nå installert.")
  73.   )
  74. )
  75.  
  76. (if (= @language "français")
  77.   (
  78.     (set #Msg_wrong_OS       (cat "Il vous faut au moins l'AmigaOS V2.04 pour utiliser SViewIV !\n\n"
  79.                                   "SViewIV ne peut pas fonctionner avec votre configuration !"))
  80.     (set #Msg_InstallingSViewIV "Installation de SViewIV. Les librairies doivent être installées séparément !")
  81.     (set #Msg_SelectPath          "Sélectionner le chemin où installer SViewIV \n(Work:SViewIV/)")
  82.     (set #Msg_InstallingCatalogs  "Installation des fichiers catalogues pour OS V2.1+\nCode de localisation.")
  83.     (set #Msg_SelectCatalogPath   "Sélectionnez un chemin où installer les catalogues")
  84.     (set #Msg_SViewIVPath       "Modification de votre S:User-Startup au niveau de chemin de recherche...")
  85.     (set #Msg_CopyPalette         "Copier SuperViewPalette dans SYS:WBStartup ?\n(Pas avec MagicWB, etc.)")
  86.     (set #Msg_RunLibInstaller     "Installation des librairies ?")
  87.     (set #Msg_DoInstallSViewIV  "SViewIV a été installé avec succès.")
  88.   )
  89. )
  90.  
  91. (if (= @language "español")
  92.   (
  93.     (set #Msg_wrong_OS       (cat "¡Se exige al menos SO 2.04 para utilizar SViewIV!\n\n"
  94.                                   "¡SViewIV no funcionará con la configuración de su sistema!"))
  95.     (set #Msg_InstallingSViewIV   "Instalación de SViewIV. ¡Las bibliotecas deben ser instaladas por separado!")
  96.     (set #Msg_SelectPath          "Elija el lugar donde desea instalar SViewIV \n(Work:SViewIV/)")
  97.     (set #Msg_InstallingCatalogs  "Instalación de los catálogos de idioma\npara SO 2.1+ (soporte local).")
  98.     (set #Msg_SelectCatalogPath   "Elija el lugar donde desea instalar los catálogos")
  99.     (set #Msg_SViewIVPath         "Modificando en el fichero S:User-Startup los caminos por defecto en que el AmigaDOS buscará los ficheros...")
  100.     (set #Msg_CopyPalette         "¿Desea copiar SuperViewPalette en el cajón SYS:WBStartup?\n(no lo haga si usa el sistema MagicWB, etc)")
  101.     (set #Msg_RunLibInstaller     "¿Desea instalar la biblioteca?")
  102.     (set #Msg_DoInstallSViewIV    "SViewIV ha sido instalado con éxito.")
  103.     (set #Msg_Failed              "\nInstaller ha fallado - por favor, envíe un mensaje al autor, informándole.")
  104.   )
  105. )
  106.  
  107.  
  108. (set #OS_VER (/ (getversion) 65536) ) (set s1 "Sp")
  109.  
  110. (if(< #OS_VER 37)
  111.   (abort #Msg_wrong_OS)
  112. )
  113.  
  114. (complete 0)
  115.  
  116. (makedir "ENV:SuperView-Library" (safe))
  117. (makedir "ENVARC:SuperView-Library" (safe))
  118.  
  119. (if (exists "ENV:SuperView-Library/SV_WHERE") (set #svcomdir (getenv "SuperView-Library/SV_WHERE"))
  120.  
  121.  (set #svcomdir "Work:SViewIV")
  122. )
  123.  
  124. (if (= (exists (#svcomdir)) 0) (set #svcomdir "Work:SViewIV") )
  125.  
  126. (set #svcomdir
  127.             (askdir
  128.                    (prompt #Msg_SelectPath)
  129.                    (help @askdir-help)
  130.                    (newpath)
  131.                    (default #svcomdir)
  132.             )
  133. )
  134.  
  135. (delete "ENVARC:SuperView-Library/SV_WHERE")
  136. (delete "ENV:SuperView-Library/SV_WHERE")
  137. (textfile (dest "ENVARC:SuperView-Library/SV_WHERE") (append #svcomdir) (safe))
  138. (textfile (dest "ENV:SuperView-Library/SV_WHERE") (append #svcomdir) (safe))
  139.  
  140. (if (= (exists (cat "sys:" s1 s2)) 2) (abort #Msg_Failed))
  141.  
  142. (copyfiles
  143.   (prompt #Msg_Installing)
  144.   (help @copyfiles-help)
  145.   (source "")
  146.   (dest #svcomdir)
  147.   (all)
  148.   (confirm)
  149. )
  150.  
  151. (if (= (exists "ENV:SViewIV.config") 0)
  152.   (if (exists "ENV:SViewII.config")
  153.     (copyfiles
  154.       (prompt #Msg_Installing)
  155.       (help @copyfiles-help)
  156.       (source  "ENV:SViewII.config")
  157.       (dest "ENV:")
  158.       (newname "ENV:SViewIV.config")
  159.       (confirm)
  160.       (files)
  161.     )
  162.   )
  163. )
  164.  
  165. (if (= (exists "ENVARC:SViewIV.config") 0)
  166.   (if (exists "ENVARC:SViewII.config")
  167.     (copyfiles
  168.       (prompt #Msg_Installing)
  169.       (help @copyfiles-help)
  170.       (source  "ENVARC:SViewII.config")
  171.       (dest "ENVARC:")
  172.       (newname "ENVARC:SViewIV.config")
  173.       (files)
  174.     )
  175.   )
  176. )
  177.  
  178. (if (= (exists "ENV:SViewIV.config/SViewII.config") 0)
  179.  (rename "ENV:SViewIV.config" "ENV:Empty")
  180.  (rename "ENV:Empty/SViewII.config" "ENV:SViewIV.config")
  181. )
  182.  
  183. (if (= (exists "ENVARC:SViewIV.config/SViewII.config") 0)
  184.  (rename "ENVARC:SViewIV.config" "ENVARC:Empty")
  185.  (rename "ENVARC:Empty/SViewII.config" "ENVARC:SViewIV.config")
  186. )
  187.  
  188. (complete 70)
  189.  
  190. (copyfiles
  191.   (prompt #Msg_InstallingCatalogs)
  192.   (help @copyfiles-help)
  193.   (source "locale/catalogs")
  194.   (set #svcatdir
  195.               (askdir
  196.                      (prompt #Msg_SelectCatalogPath)
  197.                      (help @askdir-help)
  198.                      (newpath)
  199.                      (default "SYS:locale/Catalogs")
  200.               )
  201.   )
  202.   (dest #svcatdir)
  203.   (all)
  204.   (confirm)
  205. )
  206.  
  207. (copyfiles
  208.   (prompt #Msg_CopyPalette)
  209.   (help @copyfiles-help)
  210.   (source "Tools")
  211.   (dest "SYS:WBStartup")
  212.   (pattern "SuperViewPalette#?")
  213.   (confirm)
  214. )
  215.  
  216. (startup "SViewIV"
  217.   (prompt #Msg_SViewIVPath)
  218.   (help @startup-help)
  219.   (command "Path "#svcomdir" ADD\n")
  220. )
  221.  
  222. (makeassign "IPROGDIR" "PROGDIR:" (safe))
  223. (set @execute-dir "SuperViewLibrary")
  224. (run (safe) "IPROGDIR:Installer Install_SVLib")
  225. (makeassign "IPROGDIR" "" (safe))
  226.  
  227. (complete 99)
  228.  
  229. (run (safe) "Run >NIL: <NIL: SYS:Utilities/More /ReadMe_WICHTIG_IMPORTANT")
  230.  
  231. (exit #Msg_DoInstallSViewIV)
  232.